Access Tutorial 15 


15.1 Introduction: Pulling it all 
together 

In this tutorial, you will bring together several of the 
skills you have learned in previous tutorials to imple¬ 
ment some sophisticated triggers. 

15.2 Learning objectives 

□ How do I run VBA code using a macro? 

□ How do I use the value in one field to 
automatically suggest a value for a different 
field? 

□ How do I change the table or query a form is 
bound to once the form is already created? 

□ What is the After Update event? How is it 
used? 

□ How do I provide a search capability for my 
forms? 
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Advanced Triggers 

□ How do I create an unbound combo box? 

□ Can I implement the search capability using 
Visual Basic? 

15.3 Tutorial exercises 

15.3.1 Using a macro to run VBA code 

There a some things that cannot be done using the 
Access macro language. If the feature you wish to 
implement is critical to your application, then you 
must implement it using VBA. However, since it is 
possible to call a VBA function from within a macro, 
you do not have to abandon the macro language 
completely. 

In this section, you are going to execute the Param- 
eterTest subroutine you created in Section 12.3.6 
from within a macro. Since the RunCode action of 
the Access macro language can only be used to exe- 
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cute functions (not subroutines) you must do one of 
two things before you create the macro: 

1. Convert ParameterTest to a function — you do 
this simply by changing the Sub at the start of the 
procedure to Function. 

2. Create a new function that executes Parame¬ 
terTest and call the function from the macro. 

15.3.1.1 Creating a wrapper 

Since the second alternative is slightly more interest¬ 
ing, it is the one we will use. 

• Open your basTesting module from 
Tutorial 12. 

• Create a new function called ParameterTest- 
wrapper defined as follows: 

Function 

ParameterTestWrapper(intStart As 
Integer, intStop As Integer) As 
Integer 
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'this function calls the 
ParameterTest subroutine 
ParameterTest intStart, intStop 
ParameterTestWrapper = True 
'return a value 
End Function 

• Call the function, as shown in Figure 15.1 . 



Note that the return value of the function is 
declared as an integer, but the actual assign¬ 
ment Statement is ParameterTestWrap¬ 
per = True. This is because in Access/ 
VBA, the constants True and False are 
defined as integers (-1 and 0 respectively). 


15.3.1.2 Using the RunCode action 

• Leave the module open (you may have to resize 
and/or move the debug window) and create a 
new macro called mcrRunCodeTest. 
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Tutorial exercises 


FIGURE 15.1: Create a function that calls the ParameterTest subroutine. 



basTesting : Module 

Object: | 

(General) 

3 

Proc: ParameterTestWrapper 


Function ParameterTestlilrapper(intStart As Integer, intStop As Integer) 
’this function calls the ParameterTest subroutine 
ParameterTest intStart, intStop 
ParameterTestliln^pper = True 'return a ualue 


© 


End Function 

Create a function to call 
the ParameterTest 
subroutine. 


Since ParameterTest 

does not return a value, its 
arguments are not in 
brackets. 


I Debug Window 


/? ParameterTestli)rapper( 10,15) 


Loop 
Loop 
Loop 
Loop 
Loop 
Loop 
All 
True 


number: 
number: 
number: 
number: 
number: 
number: 
done 


10 

11 

12 

13 

14 

15 



Use the Print statement to 
invoke the function (do not forget 
the parameters). 


© 


The return value of 
ParameterTestWrapper( 
is True, so this is printed when 
the function ends. 
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• Add the RunCode action and use the expression 
builder to select the correct function to execute, 
as shown in Figure 15.2. 



The expression builder includes two parame¬ 
ter place holders (<<intstart>> and 
<<intstop>>) in the function name. These 
are to remind you that you must pass two 
parameters to the ParameterTestWrap- 
per () function. If you leave the place holders 
where they are, the macro will fail because 
Access has not idea what <<intstart>> 
and <<intstop>> refer to. 


• Replace the parameter place holders with two 
numeric parameters (e.g. 3 and 6). Note that in 
general, the parameters could be field names or 
any other references to Access objects contain¬ 
ing (in this case) integers. 
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• Select Run > Start to execute the macro as 
shown in Figure 15.3. 

15.3.2 Using activity information to 

determine the number of credits 

In this section, you will create triggers attached to the 
After Update event of bound controls. 

15.3.2.1 Scenario 

Assume that each type of course activity is generally 
associated with a specific number of credits, as 
shown below: 


Activity 

Credits 

lecture 

3.0 

lab 

3.0 

tutorial 

1.0 

seminar 

6.0 
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Tutorial exercises 


FIGURE 15.2: Use the expression builder to select the function to execute. 


Add a RunCode 

action to the macro. 



* mcrRunCodeTest: Macr 


_ Action 

RunCode 


Function Name 


lb 


Use the expression builder to drill 
down to the user-defined functions in 
your database file. 


! Expression Builder 




ParameterTestWrapper («intStart», «intStop») 




OK 


Cancel 


- / 


d 


Undo 


8. | = ><<>[ .< \nd Or Not Like | ( ) | Paste 


Help 



0 Functions 

1-0 Built-In Functions 


IbasDAOTest 


basTesting 


univO v7 


\ 


basUtilities 


© 


Note the <<intStart>> and 
<<intStop>> parameter place 
holders. These must be replaced 
with expressions that Access 
understands. 


P a ra m ete rTestWra p p e r(i ntSta rt, i ntSto p) 
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FIGURE 15.3: Execute the RunCode macro. 


1 # mcrRunCodeTest: Macro 


Action 


► 

RunCode 





— 




Function Name ParameterTestWrapper (3, 6) 


Debug Window 


Loop number: 3 
Loop number: 4 
Loop number: 5 
Loop number: 6 
All done 



Replace the 
parameter place 
holders. 


Select Run > Start (or press the ! icon in 
the tool bar) to execute the macro. 
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Assume as well that the number of credits for a par¬ 
ticular type of course is not cast in stone. As such, 
the numbers given above are merely “default” val¬ 
ues. 

You want to use the default credit values when you 
create a new course or modify an existing course. 
However, the user may override this default if neces¬ 
sary for a particular course. The basic requirement is 
illustrated in Figure 15.4. 

15.3.2.2 Designing the trigger 

Based on the foregoing, the answer to the “what” 
question is the following: 

1. Look up the default number of credits associated 
with the course activity showing in the form’s 
Activity field. 

2. Copy this number into the Courses . Credits 
field. 
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Tutorial exercises 


FIGURE 15.4: Inserting a default value into a new record. 


lb 


Create a new record for a lecture-based 
course: COMM 437: Database Technology 


SE Courses 


Department 
Course number: 
Title: 

Activity 

Credits: 


COMM 
437" 


Database Technology 


Lecture 


© 


Since this is a new record, the default 
value of Credits (like any numeric 
field) is zero. You want to use the 
information you just specified in the 
Activity field to automatically 
look up the correct default number of 
credits for a lecture course and insert 
it in the Credits field. 


Create a macro to find the default number 
of credits and copy the value it into the 
Credits field. 


Select “Lecture” from the list of list of 
course activities created in Tutorial 8. 


Activities : Table 



Activity 

Description 

Credits 

► 

LAB 

Lab 

3.0 


LEC 

Lecture 

3.0 


SEM 

Seminar 

>66 


TUT 

Tutorial—- 

1.0 




0.0 


Once the Activity field is updated, the 
macro executes. The value in the 
Credits field can be changed by the 
user. 
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There are several possible answers to the “when” 
question (although some are better than others). For 
example: 

1. When the user enters the Credits field (the On 
Enter event for Credits) — The problem with 
this choice is that the user could modify the 
course’s activity without moving the focus to the 
Activity field. In such a case, the trigger would 
not execute. 

2. When the user changes the Activity field (the 
After Update event for Activity) — This choice 
guarantees that whenever the value of Activ¬ 
ity is changed, the default value will be copied 
into the Credits field. As such, it is a better 
choice. 

15.3.2.3 Preliminary activities 

• Modify the Activities table to include a single- 
precision numeric field called Credits. Add the 
values shown in the table in Section 15.3.2.1 . 
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• Ensure that you have a courses form (e.g., f rm- 
Courses) and that the form has a combo box for 
the Activity field. You may wish to order the 
fields such that Activity precedes Credits in 
the tab order (as shown in Figure 15.4). 

A If your move fields around, remember to 
adjust the tab order accordingly (recall 
Section 8.3.4). 

15.3.2.4 Looking up the default value 

As you discovered in Section 14.3.5, Access has a 
DLookUp () function that allows you to go to the 
Activities table and find the value of Credits 
for a particular value of Activity. A different 
approach is to join the Activities table with the 
Courses table in a query so that the default value of 
credits is always available in the form. This is the 
approach we will use here. 
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• Ensure you have a relationship (in the main rela¬ 
tionship window) between Courses .Activity 
and Activities. Activity. 

• Create a new query called qryCoursesAnd- 
Credits based on the Courses and Activi¬ 
ties tables (see Figure 15.5). 



Notice that you have two credits fields: 
Courses. Credits (the actual number of 
credits for the course) and Activi¬ 
ties. Credits (the “default” or “suggested” 
number of credits based on the value of 
Activity). Access uses the ctable 
name>. <f ieid name> notation whenever a 
query contains more than one field with the 
same name. 


Since you already have forms based on the 
Courses table that expect a field called Credits 
(rather than one called Courses. Credits), it is a 
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FIGURE 15.5: Use a join to make the default 
value available. 



Field: 

Table: 


Courses" 

Courses 


Credits 

Activities 


is 1 qryCoursesAndCredits : Select Query 



Courses.Credits 

Activities.Credits 

Departr 

► 

2 

3 

MUSC 


3 

3 

COMM 


4 

3 COMM 


3 

3 

COMM 


3 

3 

MATH 
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good idea to rename the Activities. Credits 
field in the query. You do this by creating a calculated 
field. 

• Rename Activities . Credits to Default- 
Credits as shown in Figure 15.6. Note that this 
eliminates the need for the ctabie 
name>.<field name> notation. 

15.3.2.5 Changing the Record Source of the 
form 

Rather than create a new form based on the qry- 
CoursesAndCredits query, you can modify the 
Record Source property of the existing frmCourses 
form so it is bound to the query rather than the 
Courses table. 

• Bring up the property sheet for the frmCourses 
form and change the Record Source property to 

qryCoursesAndCredits as shown in 
Figure 15.7. 
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FIGURE 15.6: Rename one of the Credits fields. 


HS» qryCoursesAndCredits : Select Query 


DeptCode 

CrsNum 

Title 

Credits 

Activity 



Li 


Field 

Table 

Sort 

Show 

Criteria 

or 


Courses * 


Courses 


DefaultCredits: Credits 


Activities 


si* qryCoursesAndCredits : Select Query 



Credits 

DefaultCredits Deps 

► 

/ 2 

3 MUSC 


/ 3 

3 COMM 


4 

3 COMM 


3 

3 COMM 


Rename Credits form the Activities 
table to DefaultCredits. 
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FIGURE 15.7: Change the Record Source 
property of an existing form. 


Bring up the form’s property list and 
change its Record Source property. 


• 1 1 ' i • 2 3 ,|, 4 ,|, 5' I 'G' |, ? ,|, 8' 1 


♦ Detail 


Depatment 


-Cours, 


Title: 


‘Activity 

Credit;: 


qryCourse. 


numbs ir. 




CrsNum 

Title 

Credits 

Activity 

DefaultCredits 


feT Form 


Format | Dafes^Event | Other All 

Record Source. qry Courses And Credits A 

Filter. 

Order By. 

Allow Filters. Yes 

Caption. Courses 

Default View. Single Form 

Vi ews Al I owe d. Both 

Allow Edits. Yes 

Allow Deletions. . Yes 

Allow Additions.Yes 

Data Entry. No 

Recordset Type .. Dynaset 

Record Locks. No Locks 

Scroll Bars.. 

© The field list now contains all 
the fields in the new query. 
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The advantage of using a join query in this manner is 
that DefaultCredits is now available for use 
within the form and within any macros or VBA mod¬ 
ules that run when the form is open. 

15.3.2.6 Creating the Setvaiue macro 

The Setvaiue macro you require here is extremely 
simple once you have DefaultCredits available 
within the scope of the form. 

• Create the mcrCourses. SetCredits macro 
as shown in Figure 15.8. 

15.3.2.7 Attaching a procedure to the After 
Update event 

The On Click event of a button is fairly simple to 
understand: the event occurs when the button is 
clicked. The events associated with non-button 
objects operate in exactly the same way. For exam¬ 
ple, the After Update event for controls (text box, 
combo box, check box, etc.) occurs when the value 
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FIGURE 15.8: Create the Setvaiue macro. 


Create a macro group called mcrCourses 
and a named macro called SetCredits. 


| m. mcrCourses : Macro 


f Macro Name 

Action 

► 

SetCredits 

SetValue 












Item 

Expression 


[Credits] 

[DefaultCredits] 


You can use the builder to set the arguments 
or simply type in the names of the fields. 


of the control is changed by the user. As a result, the 
After Update event is often used to trigger data verifi¬ 
cation procedures and “auto-fill” procedures like the 
one you are creating here. 
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• Attach the mcrCourses . SetCredits macro to 
the After Update event of the Activity field. 

• Verify that the trigger works properly. 

15.3.3 Use an unbound combo box to 
automate search 

As mentioned in Tutorial 8, a combo box has no 
intrinsic search capability. However, the idea of scan¬ 
ning a short list of key values, selecting a value, and 
having all the information associated with that record 
pop on to the screen is so basic that in Access ver¬ 
sion 7.0 and above, this capability is included in the 
combo box wizard. In this tutorial, we will look at a 
couple of different means of creating a combo boxes 
for search from scratch. 

15.3.3.1 Manual search in Access 

To see how Access searches for records, do the fol¬ 
lowing: 

• Open your frmDepartments form. 
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• Move to the field on which you want to search 
(e.g., DeptCode); 

• Select Edit > Find (or press Control-F ); 

• Fill out the search dialog box as shown in 
Figure 15.9. 

In the dialog box, you specify what to search for 
(usually a key value) and specify how Access should 
conduct its search. When you press Find First, 
Access finds the first record that matches your 
search value and makes it the current record (note 
that if you are searching on a key field, the first 
matching record is also the only matching record). 

15.3.3.2 Preliminaries 

To make this more interesting, assume that the frm- 
Departments form is for viewing editing existing 
departmental information (rather than adding new 
departments). To enforce this limitation, do the fol¬ 
lowing: 

• Set the form’s Allow Additions property to No. 
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• Set the Enabled property of DeptCode to No (the 
user should never be able to change the key val¬ 
ues of existing records). 

15.3.3.3 Creating the unbound combo box 

The key thing to remember about the combo box 
used to specify the search criterion is that it has 
nothing to do with the other fields or the underlying 
table. As such, it should be unbound. 

• Create an unbound combo box in the form 
header, as shown in Figure 15.10. 

• Change the Name property of the combo box to 
cboDeptCode. 

• The resulting combo box should resemble that 
shown in Figure 15.11. 

A When you create an unbound combo box, 

. Access gives it a default name (e.g., 
Combos). You should do is change this to 
something more descriptive (e.g., cboDept- 
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FIGURE 15.9: Search for a record using the “find” dialog box. 


Si Departments 


jnjxj 


Move the cursor to 
the field you wish to 
search and invoke 
the search box 
using Controi-F. 


Department code ICOMM 
P^p^rhn^n* |ptri^ 


Record: 


Commerce and Business Administn 
Building |ANGU F Credits updated? 


Find in field: 'Department cod' 


Update Credits 


lb 


Find Wh 


Enter the value you wish to find 
and set the other search 
parameters as required. 


Limit the search to the current 
field (i.e., the field with the 
focus when the search box was 
opened). 



MUSC 


3 


Match: 


Whole Field 



I - Match Case 

I - Search Fields As Formatted 
I* Search Only Current Field 


SI Department 


Department co fe |MUSC 
ntjjalffie [Mu 


d 


Press Find First to move to the first 
(or only) record that matches the 
search condition. 



Find First 


Find Next 


Close 




Update Credits 


r j^rediTsup dated? 
► I H l>*| of 7 


A 
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FIGURE 15.10: Create an unbound combo box. 


Drag the separator for the detail 
down to make room in the form 
header 


Create an unbound combo box by 
selecting the combo box tool and 
clicking in the header area. 


Use the wizard in the usual way 
to get a list of valid DeptCode 
values and descriptions. The 
bound column for the combo box 
should be DeptCode. 


d 


8i frmDepartments : Form 


□ I 


r 


i 


I ' 10' I 




♦ Form Header 


vSearcfi for a d^partm^nt 


Jetail 



[Unbound - 




D e portm e nt np t n e-| D e ptN am e 
Building Buildim 


P Credits updatec? 
- 1 


Update Credits 


♦ Form Footer 


Combo Box Wizard 


Since the combo box is unbound, 
its value has to be stored for later 
use rather than stored in a field. 


xxxxxxx 


xxxx 

xxxx 

XXXJL. 

"XXX 

xxx 

xxx 

xxxx 


m xxx xxx xxx 
xxx xxx xxx xxx 
xxx xxx xxx xxx 


Microsoft Access can store the selected value from your combo box 
in your database, or remember the value so you can use it later to 
perform a task. 

■ 17 Remember the value for later use. 

r Store that value in this field: I 3 
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FIGURE 15.11: An unbound combo box. 




Although the DeptCode column has been 
hidden, it is the “bound” column. As a result, 
the value of the combo box as it appears here 
is “COMM”, not “Commerce and ...” 


Code). The advantage of the prefix cbo is 
that it allows you to differentiate between the 
bound field DeptCode and the unbound 
combo box. 
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15.3.3.4 Automating the search procedure 
using a macro 

When we implement search functionality with a 
combo box, only two things are different from the 
manual search in Figure 15.9: 

1. the search dialog box does not show up, and 

2. the user selects the search value from the combo 
box rather than typing it in. 

The basic sequence of actions, however, remains 
the same. As a result, the answer to the “what” ques¬ 
tion is the following: 

1. Move the cursor to the DeptCode field (this 
allows the “Search Only Current Field” option to 
be used, thereby drastically cutting the search 
time). 

2. Invoke the search feature using the current value 
of cboDeptCode as the search value. 
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3. Move the cursor back to cboDeptCode or some 
other field. 

The only problem with this procedure is that the 
Deptcode text box is disabled. As a result, you must 
include an extra step at the beginning of the macro 
to set its Enabled property to Yes and another at the 
end of the macro to return it to its original state. 

• Create a new macro called mcrSearch.Find- 
Department. 

• Use the Setvaiue action to set the Dept¬ 
code . Enabled property to Yes. This can be 
done using the expression builder, as shown in 
Figure 15.12. 

• Use the GotoControi action to move the cursor 
to the Deptcode text box. Note that this action 
will fail if the destination control is disabled. 

• Use the FindRecord action to implement the 
search as shown in Figure 15.13. 
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FIGURE 15.13: Fill in the arguments for the 

FindRecord action. 


Create a named macro called 

mcrSearch.FindDepartment. 


A. mcrSearch • Macro 


FindDepartment SetValue 

GoTo Contra I 
FindRecord 


enable the DeptCode field 
move to the DeptCode field 
search 


Action Arguments 


Find What 
Match 
Match Case 
Search 

Search As Form. 
Only Current Fiel 
Find First 


dcboDeptCodel.Value 



Since Value is 
the default 
property, its use 
is optional. 


Enter the action arguments. Do not forget the 
equals sign before the name of the combo box. 
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FIGURE 15.12: Use the builder to specify the name of the property to set. 


© 


lb 


To set the Item argument, use the 
expression builder to drill down 
to the correct form. 


The middle pane shows all the 
objects on the form including 
labels and buttons (hence the 
need for a good naming 
convention). 


Select the unbound combo box 
(cboDeptCode) from the middle 
pane. A list of properties for the 
selected object is displayed in the 
pane on the right. 


; Expression Builder 


E 


Forms![frmDepartments]![cboDeptCode].Enabled 


~3 


OK 


Cancel 


lJ Undo 




+ 

- 

/ 

J 


= 

> 

< 

id 

And 

Or 

Not 

Like | 

ni 

Paste 

Help 


(±1 Tables 

0~Queries~ 

(=3 Forms 
-0 Loaded Forms 

_ 

-0 All Form<^ 

0 Repp 


frmDepartment 


I 


J 


<Form> ■*■ 

<Field List> 

Search for a departme 


DefauItValue 

DisplayWhen 

Enabled 

cboDeptCode 


EvjjntProcPrefix 

'DeptCode Label 


FditBold 

DeptCode 


Rsntltalic 

DeptName Label^_____ 

- 

■FontName 

Deglhlame" " 


FontSize 

Building Label 


FontUnderline 

Building 


FontWeight 

cmdUpdateCredits _»J 


ForeColor 


d 
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Access interprets any text in the Find What 
argument as a literal string (i.e., quotation 
marks would not be required to find comm). To 
use an expression (including the contents of a 
control) in the Find What argument, you must 
precede it with an equals sign (e.g., 


= [cboDeptCode]. 


• You cannot disable a control if it has the focus. 
Therefore, include another GotoControi action 
to move the cursor to cboDeptCode before set¬ 
ting DeptCode.Enabled = No. 

• Attach the macro mcrSearch . FindDepart- 
ment to the After Update event of the cboDept¬ 
Code combo box. 

• Test the search feature. 
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15.3.4 Using Visual Basic code instead of 
a macro 

Instead of attaching a macro to the After Update 
event, you can attach a VBA procedure. The VBA 
procedure is much shorter than its macro counter¬ 
part: 

1. a copy (clone) of the recordset underlying the 
form is created, 

2. the FindFirst method of this recordset is used 
to find the record of interest. 

3. the “bookmark” property of the clone is used to 
move to the corresponding bookmark for the 
form. 

To create a VBA search procedure, do the following: 

• Change the After Update event of cboDeptCode 
to “Event Procedure”. 

• Press the builder ( - ) to create a VBA subrou¬ 
tine. 
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• Enter the two lines of code below, as shown in 
Figure 15.14. 

Me.RecordsetClone.FindFirst 
"DeptCode = '" & cboDeptCode & 

Me.Bookmark = 

Me.RecordsetClone.Bookmark 

This program consists of a number of interesting ele¬ 
ments: 

• The property Me refers to the current form. You 
can use the form's actual name, but Me is much 
faster to type. 

• A form’s RecordsetClone property provides a 
means of referencing a copy of the form's under¬ 
lying recordset. 

• The FindFirst method is straightforward. It 
acts, in this case, on the clone. 

• Every recordset has a bookmark property that 
uniquely identifies each record. A bookmark is 
like a “record number”, except that it is stored as 


Application to the assignment 


a non-human-readable data type and therefore is 
not of much use unless it is used in the manner 
shown here. Setting the Bookmark property of a 
record makes the record with that bookmark the 
current record. In the example above, the book¬ 
mark of the records underlying the form is set to 
equal the bookmark of the clone. Since the clone 
had its bookmark set by the search procedure, 
this is equivalent to searching the recordset 
underlying the form. 

15.4 Application to the assignment 

15.4.1 Triggers to help the user 

• Create a trigger on your order form that sets the 
actual selling price of a product to its default 
price. This allows the user to accept the default 
price or enter a new price for that particular trans¬ 
action (e.g., the item could be damaged). You will 
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Application to the assignment 


FIGURE 15.14: Implement the search feature using a short VBA procedure. 


£ Combo Box: cboDeptCode 


E 

o. 

Format | Data | Event | Other All 



Before Update. 

j^r 




After Update. 

[Event Procedure! 



lb 

On Change. 

[Event Procedure] 

Q 

> 

On Not in List 

mcrCourses 

J 



On Enter. 

mcrCourses.S etCre d its 




On Exit. 

mcrSearch 




On Got Focus. 

mcrSearch.FindDepart 




On Lost Focus. 

mcrUp date Credits 




On Click.. 

mcrUpdateCredits.Che 



/ 

On Dbl Click. 

mcrUpdateCredits.Upc 

jJ 


/ 


Change the After Update event to 
reference an event procedure. 

Press the builder button to invoke the VBA 
editor. 


Access automatically names the 
subroutine. Enter the two lines of code. 


Form_frmDepartments : Module 




Object: cboDeptCode 


~Jr VJ Proc: AfterUpdate 


Private Sub cboDeptCode_Afterllpdate() 

Me.RecordsetClone.FindFirst "DeptCode = '" £ cboDeptCode £ . 

Me.Bookmark = Me.RecordsetClone.Bookmark 
End Sub 
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have to think carefully about which event to 
attach this macro to. 

• Create a trigger on your order form that calcu¬ 
lates a suggested quantity to ship and copies this 
value into the quantity to ship field. The sug¬ 
gested value must take into account the amount 
ordered by the customer, any outstanding backo¬ 
rders for that item by that customer, and the cur¬ 
rent quantity on hand (you cannot ship what you 
do not have). The user should be able to override 
this suggested value. (Hint: use the MinVaiue () 
function you created in Section 12.5.) 

• Provide you customer and products forms with 
search capability. 

15.4.2 Updating the BackOrders table 

Once a sales order is entered into the order form, it 
is a simple matter to calculate the amount of each 
product that should be backordered (you did this in 
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Section 10.4). The problem is updating the Back- 
Orders table itself because two different situations 
have to be considered: 

1. A record for the particular customer-product 
combination exists in the Backorders table - 

If a backorder record exists for a particular cus¬ 
tomer and a particular product, the quantity field 
of the record can be added-to or subtracted-from 
as backorders are created and filled. 

2. A customer-product record does not exist in 
the Backorders table - If the particular cus¬ 
tomer has never had a backorder for the product 
in question, then there is no record in the Back- 
Orders table to update. If you attempt to update 
a nonexistent record, you will get an error. 

What is required, therefore, is a means of determin¬ 
ing whether a record already exists for a particular 
customer-product combination. If a record does 
exist, then it has to be updated; if a record does not 
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exist, then one has to be created. This is simple 
enough to talk about, but more difficult to implement 
in VBA. As a result, you are being provided with a 
shortcut function called UpdateBackOrders () 
that implements this logic. 

The requirements for using the UpdateBackO¬ 
rders () function are outlined in the following sec¬ 
tions: 

15.4.2.1 Create the pqryltemsToBackOrder 

query 

If you have not already done so, create the pqry- 
itemsToBackOrder query described in 
Section 10.4. The UpdateBackOrders () proce¬ 
dure sets the parameter for the query and then cre¬ 
ates a recordset based on the results. 

A If you did not use the field names OrderiD, 
and ProductiD in your tables, you must use 
the calculated field syntax to rename them 
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(see Section 15.3.2.4 to review renaming 
fields in queries). 

Note that if the backordered quantity is positive, 
items are backordered. If the backordered quantity is 
negative, backorders are being filled. If the backor¬ 
dered quantity is zero, no change is required and 
these records should no be included in the results of 
the query. 

15.4.2.2 Import the shortcut function 

Import the Visual Basic for Applications (VBA) mod¬ 
ule containing the code for the 
UpdateBackOrders () function. This module is 
contained in an Access database called 
BOSC_vx.mdb that you can download from the 
course home page. 

• bosc_v 2 . mdb is for those running Access ver¬ 
sion 2.0. To import the module, select File > 
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Import, choose bosc_v 2 .mdb, and select Mod¬ 
ule as the object type to import. 

• bosc_v 7 .mdb is for those running Access ver¬ 
sion 7.0 or higher. To import the module, select 
File > Get External Data > Import, choose 
bosc_v 7 .mdb, and select Module as the object 
type to import. 

15.4.2.3 Use the function in your application 

The general syntax of the function call is: 

UpdateBackOrders(OrderlD, CustomerlD). 

The OrderiD and CustomerlD are arguments and 
they both must be of the type Long Integer. If this 
function is called properly, it will update all the backo¬ 
rdered items returned by the parameter query. 

15.4.2.4 Modifying the UpdateBackOrders () 
function 

The UpdateBackOrders () function looks for spe¬ 
cific fields in three tables: Backorders, Custom¬ 
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ers, and Products. If any of your tables or fields 
are named differently, an error occurs. To eliminate 
these errors, you can do one of two of things: 

1. Edit the VBA code. Use the search-and-replace 
feature of the module editor to replace all 
instances of field names in the supplied proce¬ 
dures with your own field names. This is the rec¬ 
ommended approach, although you need an 
adequate understanding of how the code works 
in order to know which names to change. 

2. Change the field names in your tables (and all 
queries and forms that reference these field 
names). This approach is not recommended. 

15.4.3 Understanding the 

UpdateBackOrders () function 

The flowchart for the UpdateBackOrders () func¬ 
tion is shown in Figure 15.15. This function repeat¬ 
edly calls a subroutine, BackOrderitem, which 
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updates or adds the individual items to the Backo¬ 
rders table. The flowchart for the BackOrderitem 
subroutine is shown in Figure 15.16. 

There are easier and more efficient ways of imple¬ 
menting routines to update the Backorders table. 
Although some amount of VBA code is virtually inev¬ 
itable, a great deal of programming can be elimi¬ 
nated by using parameter queries and action 
queries. Since queries run faster than code in 
Access, the more code you replace with queries, the 
better. 



To get full marks for the backorders aspect of 
the assignment, you have to create a more 
elegant alternative to the shortcut supplied 
here. 


Application to the assignment 


FIGURE 15.15: Flowchart for 

UpdateBackOrders(). 
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Application to the assignment 


FIGURE 15.16: Flowchart for the BackOrderltem subroutine. 
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15.4.4 Annotated source code for the 
backorders shortcut module. 

In the following sections, the two procedures in the 
shortcut module are examined. In each case, the 
code for the procedure is presented followed by 
comments on specific lines of code. 

15.4.4.1 The UpdateBackOrders () function 

Function UpdateBackOrders(ByVal 
IngOrdID As Long, ByVal IngCustID As 
Long) 

Set dbCurr = CurrentDb 
Dim rsBOItems As Recordset 
dbCurr.QueryDefs!pqryltemsToBackOrder 
Parameters!pOrderlD = IngOrdID 
Set rsBOItems = 

dbCurr.QueryDefs!pqryltemsToBackOrde 
.OpenRecordset() 

If rsBOItems.RecordCount = 


0 Then 
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MsgBox "Back order cannot be processed: 

order contains no items" 

Exit Sub 
End I f 

Do Until rsBOItems.EOF 
Call BackOrderltem(IngCustID, 
rsBOItems!ProductID, rsBOItems!Qty) 
rsBOItems.MoveNext 
Loop 

rsBOItems.Close 
End Function 

15.4.4.2 Explanation of the 

UpdateBackOrders () function 

Function UpdateBackOrders(ByVal IngOr¬ 
dID As Long, ByVal IngCustID As Long) — 

This statement declares the function and its parame¬ 
ters. Each item in the parameter list contains three 
elements: ByVal or ByRef (optional), the variable's 
name, and the variable's type (optional). The ByVal 
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keyword simply means that a copy of the variables 
value is passed the subroutine, not the variable 
itself. As a result, variables passed by value cannot 
be changed by the sub-procedure. In contrast, if a 
variable is passed by reference (the default), its 
value can be changed by the sub-procedure. 

Set dbCurr = CurrentDb — Declaring a vari¬ 
able and setting it to be equal to something are dis¬ 
tinct activities. In this case, the variable dbCurr 
(which is declared in the declarations section) is set 
to point to a database object. Note that the database 
object is not created, it already exists. 

CurrentDb is a function supported in Access ver¬ 
sion 7.0 and higher that returns a reference to the 
current database. In Access version 2.0, this function 
does not exist and thus the current database must 
be found by starting at the top level object in the 
Access DAO hierarchy, as discussed in 
Section 14.3.1 . 
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Dim rsBOItems As Recordset — In this decla¬ 
ration statement, a pointer to a Recordset object is 
declared. This recordset contains a list of all the 
items to add to the Backorders table. 

dbCurr.QueryDefs!pqryltemsToBackOrder 
. Parameters ! pOrderlD = IngOrdID —This 
one is a bit tricky: the current database (dbCurr) 
contains a collection of objects called QueryDefs 
(these are what you create when you use the QBE 
query designer). Within the collection of QueryDefs, 
there is one called pqryltemsToBackOrder 
(which you created in Section 15.4.2.1). 

Within every QueryDef, there is a collection of zero 
or more Parameters. In this case, there is one called 
pOrderlD and this sets the value of the parameter 
to the value of the variable ingOrderiD (which was 
passed to the function as a parameter). 

Set rsBOItems = dbCurr.QueryDefs!pqry¬ 
ltemsToBackOrder . OpenRecordset () — Here 
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is another set statement. In this one, the variable 
rsBOitems is set to point at a recordset object. 
Unlike the current database object above, however, 
this recordset does not yet exist and must be created 
by running the pqryitemsToBackOrder parame¬ 
ter query. 

OpenRecordset is a method that is defined for 
objects of type TableDef or QueryDef that creates an 
image of the data in the table or query. Since the 
query in question is a parameter query, and since the 
parameter query is set in the previous statement, the 
resulting recordset consists of a list of backordered 
items with an order number equal to the value of 
pOrderlD. 

If rsBOitems.RecordCount = 0 Then — The 

only thing you need to know at this point about the 
RecordCount property of a recordset is that it returns 
zero if the recordset is empty. 
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MsgBox "Back order cannot be processed: 
order contains no items" —The MsgBox 

statement pops up a standard message box with an 
Okay button in the middle. 

Exit Sub — If this line is reached, the list contains 
no items. As such, there is no need to go any further 
in this subroutine. 

End if — The syntax for if... Then... Else... state¬ 
ments requires an End if statement at the end of 
the conditional code. That is, everything between the 
if and the End if executes if the condition is true; 
otherwise, the whole block of code is ignored. 

Do until rsBOitems .eof — The eof property 
of a recordset is set to true when the “end of file” is 
encountered. 

Call BackOrderltem(IngCustID, rsBOi¬ 
tems !ProductID, rsBOitems!Qty) —A sub¬ 
routine is used to increase the modularity and 


I ^Tlomel 14 Previous | 29 of 33 | Next^ | 









15. Advanced Triggers 

readability of this function. Note the way in which the 
current values of Product id and Qty from the 
rsBOitems Recordset are accessed. 

rsBOItems .MoveNext — MoveNext is a method 
defined for recordset objects. If this is forgotten, the 
eof condition will never be reached and an infinite 
loop will be created. In VBA, the Escape key is usu¬ 
ally sufficient to stop an infinite loop. 

Loop — All Do While/Do Until loops must end 
with the Loop statement. 

rsBOitems .Close — When you create a new 
object (such as a Recordset using the Open- 
Recordset method), you should close it before exit¬ 
ing the procedure. Note that you do not close 
dbCurr because you did not open it. 

End Function — All functions/subroutines need 

an End Function/End Sub statement. 
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15.4.4.3 The BackOrderItem () subroutine 

Sub BackOrderltem(ByVal IngCustID As 
Long, ByVal strProdID As String, ByVal 
intQty As Integer) 

Set dbCurr = CurrentDb 
Dim strSearch As String 
Dim rsBackOrders As Recordset 
Set rsBackOrders = 
dbCurr.OpenRecordset("BackOrders", 
dbOpenDynaset) 

strSearch = "CustID = " & IngCustID & " 
AND ProductID = '" & strProdID & 
rsBackOrders.FindFirst strSearch 
If rsBackOrders.NoMatch Then 
Dim rsCustomers As Recordset 
Set rsCustomers = 
dbCurr.OpenRecordset("Customers", 
dbOpenDynaset) 

strSearch = "CustID = " & IngCustID 
rsCustomers.FindFirst strSearch 
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If rsCustomers.NoMatch Then 
MsgBox "An invalid Customer ID number 
has been passed to BackOrderltem" 
Exit Sub 
End If 

Dim rsProducts As Recordset 
Set rsProducts = 
dbCurr.OpenRecordset("Products", 
dbOpenDynaset) 

strSearch = "ProductID = '" & strProdID 
& 

rsProducts.FindFirst strSearch 
If rsProducts.NoMatch Then 
MsgBox "An invalid Product ID number 
has been passed to BackOrderltem" 
Exit Sub 
End If 

rsBackOrders.AddNew 
rsBackOrders!CustID = IngCustID 
rsBackOrders!ProductID = strProdID 
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rsBackOrders!Qty = intQty 
rsBackOrders.Update 
Else 

rsBackOrders.Edit 

rsBackOrders!Qty = rsBackOrders!Qty + 
intQty 

rsBackOrders.Update 
End I f 
End Sub 

1 5 AAA Explanation of the BackOrderltem () 
subroutine 

Since many aspects of the language are covered in 
the previous subroutine, only those that are unique 
to this subroutine are explained. 

Set rsBackOrders = dbCurr.OpenRecord¬ 
set ("BackOrders", dbOpenDynaset) — The 
OpenRecordset method used here is the one 
defined for a Database object. The most important 
argument is the source of the records, which can be 
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a table name, a query name, or an SQL statement. 
The dbOpenDynaset argument is a predefined con¬ 
stant that tells Access to open the recordset as a 
dynaset. You don't need to know much about this 
except that the format of these predefined constants 
is different between Access version 2.0 and version 
7.0 and higher. In version 2.0, constants are of the 
form: db_open_dynaset. 

strSearch = "CustID = "& IngCustID & " 
AND ProductID = '" & strProdID & — 

A string variable has been used to break the search 
process into two steps. First, the search string is 
constructed; then the string is used as the parameter 
for the FindFirst method. The only tricky part here 
is that IngCustID is a long integer and strProdID 
is a string. The difference is that the value of str¬ 
ProdID has to be enclosed in quotation marks when 
the parameter is passed to the FindFirst method. To 
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do this, single quotes are used within the search 
string. 

rsBackOrders.FindFirst strSearch — 
FindFirst is a method defined for Recordset 
objects that finds the first record that meets the crite¬ 
ria specified in the method's argument. Its argument 
is the text string stored in strSearch. 

If rsBackOrders.NoMatch Then — The 
NoMatch property should always be checked after 
searching a record set. Since it is a Boolean variable 
(True / False) it can be used without an comparison 
operator. 

rsBackOrders. AddNew — Before information can 
be added to a table, a new blank record must be cre¬ 
ated. The AddNew method creates a new empty 
record, makes it the active record, and enables it for 
editing. 
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rsBackOrders ! Cust ID = IngCustID — Note 
the syntax for changing a variable’s value. In this 
case, the null value of the new empty record is 
replaced with the value of a variable passed to the 
subroutine. 

rsBackOrders. Update — After any changes are 
made to a record, the update method must be 
invoked to “commit” the changes. The AddNew / 
Edit and update methods are like bookends 
around changes made to records. 

rsBackOrders.Edit — The Edit method allows 
the values in a record to be changed. Note that these 
changes are not saved to the underlying table until 
the update method is used. 
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